10 POKE53280,11:POKE53281,5:PRINT"[147]"TAB(15)" RENAMER ":C$="                "
15 PRINT" [153]BEI KOALA-BILDERN: ENTWEDER":PRINT" [158]?PIC NAME[153]";
16 PRINT"[146]   EINGEBEN, ODER":PRINT" [158]?PIC NAME*[146][153], WENN DER NAME"
17 PRINT" MIT LEERZEICHEN ENDET, ABER":PRINT" GENAU 15 ZEICHEN LANG IST !"
20 A$="":INPUT" ALTER NAME ";A$:IFA$=""THENPRINT" TSCHUESSI!":PRINT" T C":END
30 IFLEFT$(A$,1)="?"THENA$=CHR$(129)+RIGHT$(A$,(LEN(A$)-1))
35 IFRIGHT$(A$,1)="*"THENA$=LEFT$(A$,(LEN(A$-1)):A$=LEFT$(A$+C$,15)
40 B$="":INPUT" NEUER NAME ";B$:IFB$=""THENPRINT" TSCHUESSI!":PRINT" T C":END
50 IFLEFT$(B$,1)="?"THENB$=CHR$(129)+RIGHT$(B$,(LEN(B$)-1)):B$=LEFT$(B$+C$,15)
60 OPEN2,8,2,A$+",P,R":OPEN15,8,15
70 INPUT#15,AA,BB$,CC,DD
80 IFAA<>0THENPRINT"              F E H L E R  !           ":GOTO100
90 GOTO120
100 PRINT,AA;BB$;CC;DD
110 POKE198,0:WAIT198,1:POKE198,0:CLOSE2:CLOSE15:GOTO20
120 CLOSE2:PRINT#15,"R:"+B$+"="+A$:CLOSE15:GOTO20